cond
start
*.thisgene .mkvirus store
.vshoot inc
300 .aimdx store
50 .repro store
0 .delgene store
1 .sharenrg store
.tie inc
stop

start
0 .repro store
99 .sharenrg store
10 *.body sub 0 floor .strbody store
1 *.robage sgn sub 50 rnd mult .up store
1 *.robage sgn sub 50 rnd mult .dx store
stop

cond
*.nrg *.strbody 10 mult sub 200 *.robage add >
start
50 .repro store
stop